with ComboBox1 do
begin
	BeginUpdate();
	Style := EXCOMBOBOXLib_TLB.DropDownList;
	IntegralHeight := True;
	HeaderVisible := False;
	SingleEdit := True;
	SearchColumnIndex := -1;
	AdjustSearchColumn := False;
	(IUnknown(Columns.Add('Language')) as EXCOMBOBOXLib_TLB.Column).Def[EXCOMBOBOXLib_TLB.exCellHasCheckBox] := OleVariant(True);
	with Items do
	begin
		AddItem('English');
		AddItem('Hebrew');
		AddItem('Spanish');
	end;
	LabelText := ' <b>custom</b> text ';
	EndUpdate();
end

with ComboBox1 do
begin
	DefaultItemHeight := 48;
	Columns.Add('C1');
	with Items do
	begin
		CellPicture[OleVariant(AddItem('Text')),OleVariant(0)] := ComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	end;
end

with ComboBox1 do
begin
	Columns.Add('A');
	Columns.Add('B');
	(IUnknown(Columns.Add('(A+B)*1.19')) as EXCOMBOBOXLib_TLB.Column).ComputedField := '(%0 + %1) * 1.19';
	with Items do
	begin
		CellCaption[OleVariant(AddItem(OleVariant(1))),OleVariant(1)] := OleVariant(2);
	end;
	with Items do
	begin
		CellCaption[OleVariant(AddItem(OleVariant(10))),OleVariant(1)] := OleVariant(20);
	end;
	var_ConditionalFormat := ConditionalFormats.Add('%2 > 10',Null);
	with var_ConditionalFormat do
	begin
		Bold := True;
		ForeColor := $ff;
		ApplyTo := EXCOMBOBOXLib_TLB.FormatApplyToEnum($2);
	end;
end

with ComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := ' Button 1 ';
		CellHAlignment[OleVariant(h),OleVariant(1)] := EXCOMBOBOXLib_TLB.RightAlignment;
		CellHasButton[OleVariant(h),OleVariant(1)] := True;
		h := AddItem('Cell 2');
		CellCaption[OleVariant(h),OleVariant(1)] := ' Button 2 ';
		CellHAlignment[OleVariant(h),OleVariant(1)] := EXCOMBOBOXLib_TLB.CenterAlignment;
		CellHasButton[OleVariant(h),OleVariant(1)] := True;
	end;
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Custom Filter')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		CustomFilter := 'Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||Text Documents (*.log,*.txt)||*.t' + 
	'xt|*.log';
		FilterType := EXCOMBOBOXLib_TLB.exPattern;
		Filter := '*.xls';
	end;
	Items.AddItem('excel.xls');
	Items.AddItem('word.doc');
	Items.AddItem('pp.pps');
	Items.AddItem('text.txt');
	ApplyFilter();
end

with ComboBox1 do
begin
	BeginUpdate();
	rs := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('ADODB.Recordset'))) as ADODB_TLB.Recordset);
	with rs do
	begin
		Fields.Append('A',8,Null,Null,Null);
		Fields.Append('B',8,Null,Null,Null);
		Open(Null,Null,Null,Null,Null);
		AddNew(Null,Null);
		Fields.Item['A'].Value := 'Item A.1';
		Fields.Item['B'].Value := 'Item B.1';
		Update(Null,Null);
		AddNew(Null,Null);
		Fields.Item['A'].Value := 'Item A.2';
		Fields.Item['B'].Value := 'Item B.2';
		Update(Null,Null);
	end;
	DataSource := (IUnknown(rs) as ADODB_TLB.Recordset);
	Value := 'Item A.1';
	EndUpdate();
end

with ComboBox1 do
begin
	Columns.Add('Number');
	(IUnknown(Columns.Add('Str')) as EXCOMBOBOXLib_TLB.Column).ComputedField := 'str(%0) + '' AA''';
	with Items do
	begin
		AddItem('-1.98');
		AddItem('0.99');
		AddItem('1.23');
		AddItem('2.34');
	end;
end

with ComboBox1 do
begin
	BeginUpdate();
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[0] := False;
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	CloseOnDblClk := True;
	LinesAtRoot := EXCOMBOBOXLib_TLB.exGroupLinesAtRoot;
	TreeColumnIndex := 1;
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		h := AddItem('Root 1.1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Root 1.2';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1.1')),OleVariant(1)] := 'Child 1.2';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 2.1')),OleVariant(1)] := 'Child 2.2';
		ExpandItem[h] := True;
		h := AddItem('Root 2.1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Root 2.2';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1.1')),OleVariant(1)] := 'Child 1.2';
	end;
end

with ComboBox1 do
begin
	ConditionalFormats.Add('hour(%0)>=12',Null).Bold := True;
	Columns.Add('Date');
	(IUnknown(Columns.Add('Hour')) as EXCOMBOBOXLib_TLB.Column).ComputedField := 'hour(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end

with ComboBox1 do
begin
	(IUnknown(Columns.Add('ColumnName')) as EXCOMBOBOXLib_TLB.Column).Caption := 'NewName';
end

with ComboBox1 do
begin
	SortBarVisible := True;
	SortBarColumnWidth := 48;
	(IUnknown(Columns.Add('C1')) as EXCOMBOBOXLib_TLB.Column).SortOrder := EXCOMBOBOXLib_TLB.SortAscending;
	(IUnknown(Columns.Add('C2')) as EXCOMBOBOXLib_TLB.Column).SortOrder := EXCOMBOBOXLib_TLB.SortDescending;
end

with ComboBox1 do
begin
	BeginUpdate();
	(IUnknown(Columns.Add('Item')) as EXCOMBOBOXLib_TLB.Column).DisplayFilterButton := True;
	with (IUnknown(Columns.Add('Pos')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		AllowSizing := False;
		AllowSort := False;
		Width := 32;
		FormatColumn := '1 apos ``';
		Position := 0;
	end;
	with Items do
	begin
		AddItem('Item A');
		AddItem('Item B');
		AddItem('Item C');
	end;
	FilterBarPromptVisible := EXCOMBOBOXLib_TLB.exFilterBarPromptVisible;
	Background[EXCOMBOBOXLib_TLB.exFooterFilterBarButton] := $ff;
	EndUpdate();
end

with ComboBox1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJj' + 
	'yI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmS' + 
	'ZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8ORO' + 
	'icbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2D' + 
	'YxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXA' + 
	'iAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJ' + 
	'DCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0' + 
	'TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAk' + 
	'jIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSM' + 
	'RsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQ' + 
	'HkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ');
	end;
	(IUnknown(Columns.Add('Item')) as EXCOMBOBOXLib_TLB.Column).DisplayFilterButton := True;
	with (IUnknown(Columns.Add('Pos')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		AllowSizing := False;
		AllowSort := False;
		Width := 32;
		FormatColumn := '1 apos ``';
		Position := 0;
	end;
	with Items do
	begin
		AddItem('Item A');
		AddItem('Item B');
		AddItem('Item C');
	end;
	FilterBarPromptVisible := Integer(EXCOMBOBOXLib_TLB.exFilterBarToggle) Or Integer(EXCOMBOBOXLib_TLB.exFilterBarPromptVisible);
	Background[EXCOMBOBOXLib_TLB.exFooterFilterBarButton] := $1000000;
	EndUpdate();
end

with ComboBox1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	SortBarVisible := True;
	BackColorSortBar := $1000000;
	BackColorSortBarCaption := $2000000;
	Appearance := EXCOMBOBOXLib_TLB.None2;
end

with ComboBox1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(3,'gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' + 
	'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' + 
	'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' + 
	'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX' + 
	'IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg' + 
	'wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI' + 
	'NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=');
		Add(1,'CP:3 -2 -2 2 2');
		Add(4,'gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' + 
	'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' + 
	'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' + 
	'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEe' + 
	'Bkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOF' + 
	'SFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJ' + 
	'tDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=');
		Add(2,'CP:4 -2 -2 2 2');
	end;
	LinesAtRoot := EXCOMBOBOXLib_TLB.exGroupLinesAtRoot;
	HasButtons := EXCOMBOBOXLib_TLB.exCustom;
	HasButtonsCustom[False] := 16777216;
	HasButtonsCustom[True] := 33554432;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child');
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'XP:TREEVIEW 2 1');
		Add(2,'XP:TREEVIEW 2 2');
	end;
	Background[EXCOMBOBOXLib_TLB.exTreeGlyphOpen] := $1000000;
	Background[EXCOMBOBOXLib_TLB.exTreeGlyphClose] := $2000000;
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child');
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' + 
	'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' + 
	'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' + 
	'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX' + 
	'IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg' + 
	'wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI' + 
	'NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=');
		Add(2,'gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' + 
	'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' + 
	'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' + 
	'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEe' + 
	'Bkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOF' + 
	'SFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJ' + 
	'tDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=');
	end;
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	Background[EXCOMBOBOXLib_TLB.exTreeGlyphOpen] := $1000000;
	Background[EXCOMBOBOXLib_TLB.exTreeGlyphClose] := $2000000;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child');
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	MarkSearchColumn := False;
	SelBackColor := RGB(255,255,128);
	SelForeColor := RGB(0,0,0);
	Columns.Add('C1');
	Columns.Add('C2');
	Columns.Add('C3');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Radio 1';
		CellHasRadioButton[OleVariant(h),OleVariant(1)] := True;
		CellRadioGroup[OleVariant(h),OleVariant(1)] := 1234;
		CellCaption[OleVariant(h),OleVariant(2)] := 'Radio 2';
		CellHasRadioButton[OleVariant(h),OleVariant(2)] := True;
		CellRadioGroup[OleVariant(h),OleVariant(2)] := 1234;
		CellState[OleVariant(h),OleVariant(1)] := 1;
	end;
end

with ComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Check Box';
		CellHasCheckBox[OleVariant(h),OleVariant(1)] := True;
		CellState[OleVariant(h),OleVariant(1)] := 1;
	end;
end

with ComboBox1 do
begin
	SortBarVisible := True;
	ForeColorSortBar := RGB(255,0,0);
end

with ComboBox1 do
begin
	SortBarVisible := True;
	BackColorSortBar := RGB(255,0,0);
	BackColorSortBarCaption := RGB(128,0,0);
end

with ComboBox1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		CellPicture[OleVariant(h),OleVariant(0)] := ComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		CellPictureWidth[OleVariant(h),OleVariant(0)] := 24;
		CellPictureHeight[OleVariant(h),OleVariant(0)] := 24;
		ItemHeight[h] := 32;
		h := AddItem('Root 2');
		CellPicture[OleVariant(h),OleVariant(0)] := ComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		ItemHeight[h] := 48;
	end;
end

with ComboBox1 do
begin
	Columns.Add('Column 1');
	(IUnknown(Columns.Add('Column 2')) as EXCOMBOBOXLib_TLB.Column).Position := 0;
end

with ComboBox1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		ItemPosition[AddItem('Item 3')] := 0;
	end;
end

with ComboBox1 do
begin
	SortBarVisible := True;
	SortBarColumnWidth := 48;
	(IUnknown(Columns.Add('C1')) as EXCOMBOBOXLib_TLB.Column).SortOrder := EXCOMBOBOXLib_TLB.SortAscending;
	(IUnknown(Columns.Add('C2')) as EXCOMBOBOXLib_TLB.Column).SortOrder := EXCOMBOBOXLib_TLB.SortDescending;
	Columns.Item['C2'].SortPosition := 0;
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterDate := True;
	end;
	Description[EXCOMBOBOXLib_TLB.exFilterBarDateWeekDays] := 'Du Lu Ma Mi Jo Vi Si';
	ApplyFilter();
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterDate := True;
	end;
	Description[EXCOMBOBOXLib_TLB.exFilterBarDateMonths] := 'Janvier F vrier Mars Avril Mai Juin Juillet Ao t Septembre Octobre Novembre D cembre';
	ApplyFilter();
end

with ComboBox1 do
begin
	SortBarVisible := True;
	SortBarHeight := 48;
end

with ComboBox1 do
begin
	DefaultItemHeight := 32;
	Columns.Add('Column');
	Items.AddItem('One');
	Items.AddItem('Two');
end

with ComboBox1 do
begin
	BackColorLevelHeader := RGB(250,0,0);
	(IUnknown(Columns.Add('S')) as EXCOMBOBOXLib_TLB.Column).Width := 32;
	(IUnknown(Columns.Add('Level 1')) as EXCOMBOBOXLib_TLB.Column).LevelKey := OleVariant(1);
	(IUnknown(Columns.Add('Level 2')) as EXCOMBOBOXLib_TLB.Column).LevelKey := OleVariant(1);
	(IUnknown(Columns.Add('Level 3')) as EXCOMBOBOXLib_TLB.Column).LevelKey := OleVariant(1);
end

with ComboBox1 do
begin
	ForeColorEdit := RGB(255,0,0);
	IntegralHeight := True;
	LinesAtRoot := EXCOMBOBOXLib_TLB.exGroupLinesAtRoot;
	TreeColumnIndex := 1;
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		h := AddItem('Root 1.1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Root 1.2';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1.1')),OleVariant(1)] := 'Child 1.2';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 2.1')),OleVariant(1)] := 'Child 2.2';
		ExpandItem[h] := True;
		h := AddItem('Root 2.1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Root 2.2';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1.1')),OleVariant(1)] := 'Child 1.2';
	end;
	Select[OleVariant(0)] := 'Root 1.1';
end

with ComboBox1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Null);
	with var_ConditionalFormat do
	begin
		ForeColor := $ff;
		ApplyTo := EXCOMBOBOXLib_TLB.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(OleVariant(0));
	Items.AddItem(OleVariant(1));
end

with ComboBox1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXCOMBOBOXLib_TLB.Column).Def[EXCOMBOBOXLib_TLB.exHeaderForeColor] := OleVariant(8439039);
		Add('Column 3');
	end;
end

with ComboBox1 do
begin
	Columns.Add('Default');
	Items.AddItem('default font');
	f := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont'))) as stdole_TLB.StdFont);
	with f do
	begin
		Name := 'Tahoma';
		Size := 12;
	end;
	with Items do
	begin
		ItemFont[AddItem('new font')] := (IUnknown(f) as stdole_TLB.StdFont);
	end;
end

with ComboBox1 do
begin
	f := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont'))) as stdole_TLB.StdFont);
	with f do
	begin
		Name := 'Tahoma';
		Size := 12;
	end;
	with ConditionalFormats.Add('1',Null) do
	begin
		Font := (IUnknown(f) as stdole_TLB.StdFont);
		ApplyTo := EXCOMBOBOXLib_TLB.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(OleVariant(0));
	Items.AddItem(OleVariant(1));
end

with ComboBox1 do
begin
	Columns.Add('Default');
	Items.AddItem('std font');
	with Items do
	begin
		CellCaptionFormat[OleVariant(AddItem('this <font tahoma;12>is a bit of text with</font> a different font')),OleVariant(0)] := EXCOMBOBOXLib_TLB.exHTML;
	end;
end

with ComboBox1 do
begin
	Columns.Add('Default');
	Items.AddItem('default font');
	f := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont'))) as stdole_TLB.StdFont);
	with f do
	begin
		Name := 'Tahoma';
		Size := 12;
	end;
	with Items do
	begin
		CellFont[OleVariant(AddItem('new font')),OleVariant(0)] := (IUnknown(f) as stdole_TLB.StdFont);
	end;
end

with ComboBox1 do
begin
	SortBarVisible := True;
	SortBarCaption := 'new caption';
end

with ComboBox1 do
begin
	Font.Name := 'Tahoma';
	Columns.Add('Column');
end

with ComboBox1 do
begin
	ColumnAutoResize := False;
	(IUnknown(Columns.Add('Column 1')) as EXCOMBOBOXLib_TLB.Column).Width := 64;
	(IUnknown(Columns.Add('Column 2')) as EXCOMBOBOXLib_TLB.Column).Width := 128;
end

with ComboBox1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with ConditionalFormats.Add('1',Null) do
	begin
		Bold := True;
		ForeColor := $ff;
		ApplyTo := EXCOMBOBOXLib_TLB.FormatApplyToEnum($1);
	end;
	Columns.Add('C1');
	with (IUnknown(Columns.Add('C2')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		HeaderBold := True;
		HTMLCaption := '<fgcolor=FF0000>C2';
	end;
	with Items do
	begin
		CellCaption[OleVariant(AddItem(OleVariant(10))),OleVariant(1)] := OleVariant(11);
		CellCaption[OleVariant(AddItem(OleVariant(12))),OleVariant(1)] := OleVariant(13);
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	MarkSearchColumn := False;
	TreeColumnIndex := -1;
	ScrollBySingleLine := False;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
		CellSingleLine[OleVariant(h),OleVariant(1)] := EXCOMBOBOXLib_TLB.exCaptionWordWrap;
		h := AddItem(Null);
		ItemDivider[h] := 0;
		ItemDividerLine[h] := EXCOMBOBOXLib_TLB.DoubleDotLine;
		ItemDividerLineAlignment[h] := EXCOMBOBOXLib_TLB.DividerCenter;
		ItemHeight[h] := 6;
		SelectableItem[h] := False;
		h := AddItem('Cell 2');
		CellCaption[OleVariant(h),OleVariant(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
		CellSingleLine[OleVariant(h),OleVariant(1)] := EXCOMBOBOXLib_TLB.exCaptionWordWrap;
	end;
end

with ComboBox1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXCOMBOBOXLib_TLB.Column).Def[EXCOMBOBOXLib_TLB.exHeaderBackColor] := OleVariant(16777216);
		(IUnknown(Add('Column 3')) as EXCOMBOBOXLib_TLB.Column).Def[EXCOMBOBOXLib_TLB.exHeaderBackColor] := OleVariant(16777471);
		Add('Column 4');
	end;
end

with ComboBox1 do
begin
	BeginUpdate();
	FilterForVisible := True;
	FilterForBackColor := RGB(240,240,240);
	IntegralHeight := True;
	Columns.Add('Default');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
		AddItem('Item 4');
		AddItem('Item 5');
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	BackColorEdit := RGB(255,0,0);
	IntegralHeight := True;
	LinesAtRoot := EXCOMBOBOXLib_TLB.exGroupLinesAtRoot;
	TreeColumnIndex := 1;
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		h := AddItem('Root 1.1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Root 1.2';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1.1')),OleVariant(1)] := 'Child 1.2';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 2.1')),OleVariant(1)] := 'Child 2.2';
		ExpandItem[h] := True;
		h := AddItem('Root 2.1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Root 2.2';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1.1')),OleVariant(1)] := 'Child 1.2';
	end;
	Select[OleVariant(0)] := 'Root 1.1';
end

with ComboBox1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Null);
	with var_ConditionalFormat do
	begin
		BackColor := $ff;
		ApplyTo := EXCOMBOBOXLib_TLB.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(OleVariant(0));
	Items.AddItem(OleVariant(1));
end

with ComboBox1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXCOMBOBOXLib_TLB.Column).Def[EXCOMBOBOXLib_TLB.exHeaderBackColor] := OleVariant(8439039);
		Add('Column 3');
	end;
end

with ComboBox1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(IUnknown(Add('Column 2')) as EXCOMBOBOXLib_TLB.Column).Def[EXCOMBOBOXLib_TLB.exHeaderBackColor] := OleVariant(8439039);
		Add('Column 3');
	end;
end

with ComboBox1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	FilterForVisible := True;
	FilterForBackColor := $1000000;
	IntegralHeight := True;
	Columns.Add('Default');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
		AddItem('Item 4');
		AddItem('Item 5');
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib_TLB.exCheck;
		Filter := 0;
	end;
	Description[EXCOMBOBOXLib_TLB.exFilterBarIsChecked] := 'Check_On';
	Description[EXCOMBOBOXLib_TLB.exFilterBarIsUnchecked] := 'Check_Off';
	ApplyFilter();
end

with ComboBox1 do
begin
	(IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column).DisplayFilterButton := True;
	Description[EXCOMBOBOXLib_TLB.exFilterBarFilterForCaption] := 'new caption';
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib_TLB.exCheck;
	end;
	Description[EXCOMBOBOXLib_TLB.exFilterBarChecked] := 'with check on';
	Description[EXCOMBOBOXLib_TLB.exFilterBarUnchecked] := 'with check off';
end

with ComboBox1 do
begin
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	Columns.Add('Default');
	with Items do
	begin
		hP := AddItem('Root');
		hC := AddItem('Child');
		SetParent(hC,hP);
	end;
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib_TLB.exBlanks;
	end;
	ApplyFilter();
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		Def[EXCOMBOBOXLib_TLB.exCellHasCheckBox] := OleVariant(True);
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib_TLB.exCheck;
		Filter := 0;
	end;
	Items.AddItem(OleVariant(0));
	with Items do
	begin
		CellState[OleVariant(AddItem(OleVariant(1))),OleVariant(0)] := 1;
	end;
	Items.AddItem(OleVariant(2));
	ApplyFilter();
end

with ComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib_TLB.exImage;
		Filter := 1;
	end;
	with Items do
	begin
		CellImage[OleVariant(AddItem('Image 1')),OleVariant(0)] := 1;
		CellImage[OleVariant(AddItem('Image 1')),OleVariant(0)] := 1;
		CellImage[OleVariant(AddItem('Image 2')),OleVariant(0)] := 2;
		CellImage[OleVariant(AddItem('Image 3')),OleVariant(0)] := 3;
	end;
	ApplyFilter();
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib_TLB.exNumeric;
		Filter := '> 0 <= 1';
	end;
	Items.AddItem(OleVariant(0));
	Items.AddItem(OleVariant(1));
	Items.AddItem(OleVariant(2));
	ApplyFilter();
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterDate := True;
		FilterType := EXCOMBOBOXLib_TLB.exDate;
		Filter := '1/1/2001 to 1/1/2002';
	end;
	Items.AddItem('1/1/2001');
	Items.AddItem('2/1/2002');
	ApplyFilter();
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib_TLB.exPattern;
		Filter := '0*';
	end;
	Items.AddItem(OleVariant(0));
	Items.AddItem('00');
	Items.AddItem(OleVariant(1));
	Items.AddItem('11');
	ApplyFilter();
end

// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
procedure TForm1.ComboBox1BeforeExpandItem(ASender: TObject; Item : HITEM; var Cancel : OleVariant);
begin
	with ComboBox1 do
	begin
		with Items do
		begin
			ItemHasChildren[InsertItem(Item,Null,'new')] := True;
		end;
	end
end;

with ComboBox1 do
begin
	BeginUpdate();
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	Style := EXCOMBOBOXLib_TLB.DropDown;
	Columns.Add('Def');
	with Items do
	begin
		AddItem('Item 1');
		ItemHasChildren[AddItem('Item 2')] := True;
		AddItem('Item 3');
	end;
	Value := 'Item 2';
	EndUpdate();
end

with ComboBox1 do
begin
	ConditionalFormats.Add('not len(%1)=0',Null).Bold := True;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Null,'Child 1');
		hC := InsertItem(h,Null,'Child 2');
		CellCaption[OleVariant(hC),OleVariant(1)] := '1';
		InsertItem(h,Null,'Child 3');
		ExpandItem[h] := True;
	end;
end

with ComboBox1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Null);
	with var_ConditionalFormat do
	begin
		Bold := True;
		ApplyTo := EXCOMBOBOXLib_TLB.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(OleVariant(0));
	Items.AddItem(OleVariant(1));
end

with ComboBox1 do
begin
	(IUnknown(Columns.Add('Column 1')) as EXCOMBOBOXLib_TLB.Column).HTMLCaption := '<b>Col</b>umn 1';
end

with ComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Cell 2';
		CellData[OleVariant(h),OleVariant(1)] := 'your extra data';
	end;
end

with ComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root <img>1</img> 1, <img>2</img>, ... and so on ');
		CellCaptionFormat[OleVariant(h),OleVariant(0)] := EXCOMBOBOXLib_TLB.exHTML;
	end;
end

with ComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		CellImages[OleVariant(h),OleVariant(0)] := '1,2,3';
	end;
end

with ComboBox1 do
begin
	HTMLPicture['p1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['p2'] := 'c:\exontrol\images\auction.gif';
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('text <img>p1</img> another picture <img>p2</img> and so on');
		CellCaptionFormat[OleVariant(h),OleVariant(0)] := EXCOMBOBOXLib_TLB.exHTML;
		CellPicture[OleVariant(h),OleVariant(0)] := ComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)');
		ItemHeight[h] := 48;
		AddItem('Root 2');
	end;
end

with ComboBox1 do
begin
	(IUnknown(Columns.Add('Column 1')) as EXCOMBOBOXLib_TLB.Column).Def[EXCOMBOBOXLib_TLB.exCellHasCheckBox] := OleVariant(True);
	Items.AddItem(OleVariant(0));
	Items.AddItem(OleVariant(1));
	Items.AddItem(OleVariant(2));
end

with ComboBox1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		CellPicture[OleVariant(h),OleVariant(0)] := ComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		ItemHeight[h] := 48;
		AddItem('Root 2');
	end;
end

with ComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		CellImage[OleVariant(h),OleVariant(0)] := 1;
		CellImage[OleVariant(InsertItem(h,Null,'Child 1')),OleVariant(0)] := 2;
		CellImage[OleVariant(InsertItem(h,Null,'Child 2')),OleVariant(0)] := 3;
		ExpandItem[h] := True;
	end;
end

with ComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'tooltip';
		CellToolTip[OleVariant(h),OleVariant(1)] := 'This is bit of text that''s shown when the user hovers the cell';
	end;
end

with ComboBox1 do
begin
	MarkSearchColumn := False;
	SelBackColor := RGB(255,255,128);
	SelForeColor := RGB(0,0,0);
	Columns.Add('C1');
	Columns.Add('C2');
	Columns.Add('C3');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Radio 1';
		CellHasRadioButton[OleVariant(h),OleVariant(1)] := True;
		CellRadioGroup[OleVariant(h),OleVariant(1)] := 1234;
		CellCaption[OleVariant(h),OleVariant(2)] := 'Radio 2';
		CellHasRadioButton[OleVariant(h),OleVariant(2)] := True;
		CellRadioGroup[OleVariant(h),OleVariant(2)] := 1234;
		CellState[OleVariant(h),OleVariant(1)] := 1;
	end;
end

with ComboBox1 do
begin
	MarkSearchColumn := False;
	(IUnknown(Columns.Add('Column 1')) as EXCOMBOBOXLib_TLB.Column).Def[EXCOMBOBOXLib_TLB.exCellBackColor] := OleVariant(255);
	Columns.Add('Column 2');
	Items.AddItem(OleVariant(0));
	Items.AddItem(OleVariant(1));
	Items.AddItem(OleVariant(2));
end

with ComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Check Box';
		CellHasCheckBox[OleVariant(h),OleVariant(1)] := True;
	end;
end

with ComboBox1 do
begin
	Columns.Add('Column 1');
	with Items do
	begin
		AddItem(OleVariant(0));
		CellHasCheckBox[OleVariant(AddItem(OleVariant(1))),OleVariant(0)] := True;
		AddItem(OleVariant(2));
	end;
end

with ComboBox1 do
begin
	(IUnknown(Columns.Add('Column 1')) as EXCOMBOBOXLib_TLB.Column).HTMLCaption := '<s>Col</s>umn 1';
end

with ComboBox1 do
begin
	(IUnknown(Columns.Add('Column 1')) as EXCOMBOBOXLib_TLB.Column).HTMLCaption := '<i>Col</i>umn 1';
end

with ComboBox1 do
begin
	ScrollPartCaption[EXCOMBOBOXLib_TLB.exHScroll,EXCOMBOBOXLib_TLB.exLowerBackPart] := 'left';
	ScrollPartCaptionAlignment[EXCOMBOBOXLib_TLB.exHScroll,EXCOMBOBOXLib_TLB.exLowerBackPart] := EXCOMBOBOXLib_TLB.LeftAlignment;
	ScrollPartCaption[EXCOMBOBOXLib_TLB.exHScroll,EXCOMBOBOXLib_TLB.exUpperBackPart] := 'right';
	ScrollPartCaptionAlignment[EXCOMBOBOXLib_TLB.exHScroll,EXCOMBOBOXLib_TLB.exUpperBackPart] := EXCOMBOBOXLib_TLB.RightAlignment;
	ColumnAutoResize := False;
	Columns.Add(1);
	Columns.Add(2);
	Columns.Add(3);
	Columns.Add(4);
	Columns.Add(5);
	Columns.Add(6);
end

with ComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with (IUnknown(Columns.Add('')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		HeaderImage := 1;
		HeaderImageAlignment := EXCOMBOBOXLib_TLB.CenterAlignment;
	end;
end

with ComboBox1 do
begin
	with (IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		Alignment := EXCOMBOBOXLib_TLB.RightAlignment;
		HeaderAlignment := EXCOMBOBOXLib_TLB.RightAlignment;
	end;
	Items.AddItem(OleVariant(0));
	Items.AddItem(OleVariant(1));
end

with ComboBox1 do
begin
	(IUnknown(Columns.Add('Column')) as EXCOMBOBOXLib_TLB.Column).Alignment := EXCOMBOBOXLib_TLB.RightAlignment;
	Items.AddItem(OleVariant(0));
	Items.AddItem(OleVariant(1));
end

with ComboBox1 do
begin
	TreeColumnIndex := -1;
	DrawGridLines := EXCOMBOBOXLib_TLB.exRowLines;
	Columns.Add('Default');
	with Items do
	begin
		CellHAlignment[OleVariant(AddItem('left')),OleVariant(0)] := EXCOMBOBOXLib_TLB.LeftAlignment;
		CellHAlignment[OleVariant(AddItem('center')),OleVariant(0)] := EXCOMBOBOXLib_TLB.CenterAlignment;
		CellHAlignment[OleVariant(AddItem('right')),OleVariant(0)] := EXCOMBOBOXLib_TLB.RightAlignment;
	end;
end

with ComboBox1 do
begin
	SortBarVisible := True;
	SortBarColumnWidth := 48;
	(IUnknown(Columns.Add('C1')) as EXCOMBOBOXLib_TLB.Column).SortOrder := EXCOMBOBOXLib_TLB.SortAscending;
	(IUnknown(Columns.Add('C2')) as EXCOMBOBOXLib_TLB.Column).SortOrder := EXCOMBOBOXLib_TLB.SortDescending;
end

with ComboBox1 do
begin
	MarkSearchColumn := False;
	TreeColumnIndex := -1;
	ScrollBySingleLine := False;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
		CellSingleLine[OleVariant(h),OleVariant(1)] := EXCOMBOBOXLib_TLB.exCaptionWordWrap;
		h := AddItem(Null);
		ItemDivider[h] := 0;
		ItemDividerLine[h] := EXCOMBOBOXLib_TLB.DoubleDotLine;
		ItemDividerLineAlignment[h] := EXCOMBOBOXLib_TLB.DividerCenter;
		ItemHeight[h] := 6;
		SelectableItem[h] := False;
		h := AddItem('Cell 2');
		CellCaption[OleVariant(h),OleVariant(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
		CellSingleLine[OleVariant(h),OleVariant(1)] := EXCOMBOBOXLib_TLB.exCaptionWordWrap;
	end;
end

with ComboBox1 do
begin
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Cell 2';
		CellCaption[OleVariant(InsertItem(h,Null,'Cell 3')),OleVariant(1)] := 'Cell 4';
		CellCaption[OleVariant(InsertItem(h,Null,'Cell 5')),OleVariant(1)] := 'Cell 6';
		ExpandItem[h] := True;
	end;
end

with ComboBox1 do
begin
	Columns.Add('Default');
	Items.AddItem('new item');
end

with ComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		CellCaption[OleVariant(AddItem('Cell 1')),OleVariant(1)] := 'Cell 2';
		h := AddItem('Cell 3');
		CellCaption[OleVariant(h),OleVariant(1)] := 'Cell 4';
	end;
end

with ComboBox1 do
begin
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	Columns.Add('Default');
	with Items do
	begin
		InsertItem(AddItem('root'),Null,'child');
	end;
end

with ComboBox1 do
begin
	BeginUpdate();
	(IUnknown(Columns.Add('Padding-Left')) as EXCOMBOBOXLib_TLB.Column).Def[EXCOMBOBOXLib_TLB.exHeaderPaddingLeft] := OleVariant(18);
	with (IUnknown(Columns.Add('Padding-Right')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		Def[EXCOMBOBOXLib_TLB.exHeaderPaddingRight] := OleVariant(18);
		HeaderAlignment := EXCOMBOBOXLib_TLB.RightAlignment;
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	with Columns do
	begin
		Add('Column 1');
		Add('Column 2');
	end;
end

with ComboBox1 do
begin
	BeginUpdate();
	DrawGridLines := EXCOMBOBOXLib_TLB.exAllLines;
	with (IUnknown(Columns.Add('Padding')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		Def[EXCOMBOBOXLib_TLB.exCellHasCheckBox] := OleVariant(True);
		Def[EXCOMBOBOXLib_TLB.exCellSingleLine] := OleVariant(False);
		Def[EXCOMBOBOXLib_TLB.exCellPaddingLeft] := OleVariant(6);
		Def[EXCOMBOBOXLib_TLB.exCellPaddingRight] := OleVariant(6);
		Def[EXCOMBOBOXLib_TLB.exCellPaddingTop] := OleVariant(6);
		Def[EXCOMBOBOXLib_TLB.exCellPaddingBottom] := OleVariant(6);
	end;
	with Items do
	begin
		AddItem('padding');
		AddItem('padding');
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	Columns.Add('ColumnName');
end

with ComboBox1 do
begin
	BeginUpdate();
	ScrollBySingleLine := True;
	ColumnAutoResize := False;
	BackColorAlternate := RGB(240,240,240);
	with (IUnknown(Columns.Add('Default')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		Width := 512;
		Def[EXCOMBOBOXLib_TLB.exCellSingleLine] := OleVariant(False);
	end;
	with Items do
	begin
		AddItem('Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 199' + 
	'9. "eXontrol" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site' + 
	' where you can try or buy our products. If you are tired of looking for "powerful" components now it''s time to show you real com' + 
	'ponents. No registration required, no nag screens, no limitations, unlimited evaluation time.');
		AddItem('A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing' + 
	' the user either to type a value directly into the control or choose from the list of existing options.');
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	Columns.Add('A');
	Columns.Item['A'].HeaderBold := True;
end

with ComboBox1 do
begin
	BeginUpdate();
	ConditionalFormats.Add('%CC0',Null).ForeColor := $ff;
	HeaderAppearance := EXCOMBOBOXLib_TLB.Etched;
	HeaderHeight := 24;
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	with Columns do
	begin
		(IUnknown(Add('Item')) as EXCOMBOBOXLib_TLB.Column).Width := 16;
		Add('Desc');
	end;
	with Items do
	begin
		hR := AddItem('Root');
		CellCaption[OleVariant(hR),OleVariant(1)] := 'The root directory /';
		h := InsertItem(hR,Null,'Home');
		CellCaption[OleVariant(h),OleVariant(1)] := 'The home directory with user directories Alice and Bob';
		InsertItem(h,Null,'Alice');
		InsertItem(h,Null,'Bob');
		ExpandItem[h] := True;
		h := InsertItem(hR,Null,'Etc');
		CellCaption[OleVariant(h),OleVariant(1)] := 'The etc directory with one configuration file';
		h := InsertItem(h,Null,'nginx.conf');
		CellCaption[OleVariant(InsertItem(hR,Null,'Var')),OleVariant(1)] := 'The var directory';
		ExpandItem[hR] := True;
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	BeginUpdate();
	ConditionalFormats.Add('%CC0=0',Null).ForeColor := $808080;
	HeaderAppearance := EXCOMBOBOXLib_TLB.Etched;
	HeaderHeight := 24;
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	with Columns do
	begin
		(IUnknown(Add('Item')) as EXCOMBOBOXLib_TLB.Column).Width := 16;
		Add('Desc');
	end;
	with Items do
	begin
		hR := AddItem('Root');
		CellCaption[OleVariant(hR),OleVariant(1)] := 'The root directory /';
		h := InsertItem(hR,Null,'Home');
		CellCaption[OleVariant(h),OleVariant(1)] := 'The home directory with user directories Alice and Bob';
		InsertItem(h,Null,'Alice');
		InsertItem(h,Null,'Bob');
		ExpandItem[h] := True;
		h := InsertItem(hR,Null,'Etc');
		CellCaption[OleVariant(h),OleVariant(1)] := 'The etc directory with one configuration file';
		h := InsertItem(h,Null,'nginx.conf');
		CellCaption[OleVariant(InsertItem(hR,Null,'Var')),OleVariant(1)] := 'The var directory';
		ExpandItem[hR] := True;
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	BeginUpdate();
	ConditionalFormats.Add('%CX0',Null).Bold := True;
	HeaderAppearance := EXCOMBOBOXLib_TLB.Etched;
	HeaderHeight := 24;
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	with Columns do
	begin
		(IUnknown(Add('Item')) as EXCOMBOBOXLib_TLB.Column).Width := 16;
		Add('Desc');
	end;
	with Items do
	begin
		hR := AddItem('Root');
		CellCaption[OleVariant(hR),OleVariant(1)] := 'The root directory /';
		h := InsertItem(hR,Null,'Home');
		CellCaption[OleVariant(h),OleVariant(1)] := 'The home directory with user directories Alice and Bob';
		InsertItem(h,Null,'Alice');
		InsertItem(h,Null,'Bob');
		ExpandItem[h] := True;
		h := InsertItem(hR,Null,'Etc');
		CellCaption[OleVariant(h),OleVariant(1)] := 'The etc directory with one configuration file';
		h := InsertItem(h,Null,'nginx.conf');
		CellCaption[OleVariant(InsertItem(hR,Null,'Var')),OleVariant(1)] := 'The var directory';
		ExpandItem[hR] := True;
	end;
	EndUpdate();
end

with ComboBox1 do
begin
	Background[EXCOMBOBOXLib_TLB.exScrollHoverAll] := $ffffffff;
end

// AfterExpandItem event - Fired after an item is expanded (collapsed).
procedure TForm1.ComboBox1AfterExpandItem(ASender: TObject; Item : HITEM);
begin
	with ComboBox1 do
	begin
		Refresh();
	end
end;

with ComboBox1 do
begin
	BeginUpdate();
	LinesAtRoot := EXCOMBOBOXLib_TLB.exLinesAtRoot;
	(IUnknown(Columns.Add('Item')) as EXCOMBOBOXLib_TLB.Column).DisplayFilterButton := True;
	with (IUnknown(Columns.Add('Check')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		Def[EXCOMBOBOXLib_TLB.exCellHasCheckBox] := OleVariant(True);
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterType := EXCOMBOBOXLib_TLB.exCheck;
	end;
	with (IUnknown(Columns.Add('Pos')) as EXCOMBOBOXLib_TLB.Column) do
	begin
		AllowSizing := False;
		AllowSort := False;
		Width := 32;
		FormatColumn := '1 apos ``';
		Position := 0;
	end;
	with Items do
	begin
		AddItem('Item A');
		h := AddItem('Item B');
		CellState[OleVariant(InsertItem(h,Null,'Sub-Item B1')),OleVariant(1)] := 1;
		InsertItem(h,Null,'Sub-Item B2');
		ExpandItem[h] := True;
		AddItem('Item C');
	end;
	FilterInclude := EXCOMBOBOXLib_TLB.exItemsWithChilds;
	FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
	FilterBarCaption := '`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i' + 
	'></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>:' + 
	' ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><' + 
	'i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i' + 
	'></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=80' + 
	'8080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + ' + 
	'`</fgcolor>`';
	FilterBarPromptPattern := 'B';
	FilterBarPromptVisible := Integer(EXCOMBOBOXLib_TLB.exFilterBarCaptionVisible) Or Integer(EXCOMBOBOXLib_TLB.exFilterBarVisible) Or Integer(EXCOMBOBOXLib_TLB.exFilterBarPromptVisible);
	with Columns.Item[OleVariant(0)] do
	begin
		FilterType := EXCOMBOBOXLib_TLB.exFilter;
		Filter := 'Item A|Item B';
	end;
	ApplyFilter();
	EndUpdate();
end